check_zero <- function(sample, N, n, M, nprobs, pip) { sample <- as_tibble(sample) if (sample$n10 == 0 & sample$n11 == 0) { sample$n10 <- 0.01 sample$n11 <- 0.01 } sample }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.